﻿Public Class TMyTablePrivileges
    Friend _DB As String
    Friend _TableName As String
    Friend _Grantor As String
    Friend _Timestamp As DateTime
    Friend _TablePriv As String
    Friend _ColumnPriv As String
    Friend _Engine As String
    Friend _TableComment As String
    Friend _CreateTime As DateTime
    Friend _UpdateTime As DateTime


    Friend _SelectPriv As Boolean
    Friend _InsertPriv As Boolean
    Friend _UpdatePriv As Boolean
    Friend _DeletePriv As Boolean
    Friend _CreatePriv As Boolean
    Friend _DropPriv As Boolean
    Friend _GrantPriv As Boolean
    Friend _ReferencesPriv As Boolean
    Friend _IndexPriv As Boolean
    Friend _AlterPriv As Boolean
    Public ReadOnly Property SelectPriv() As Boolean
        Get
            Return _TablePriv.Contains("Select")
        End Get
    End Property
    Public ReadOnly Property InsertPriv() As Boolean
        Get
            Return _TablePriv.Contains("Insert")
        End Get
    End Property
    Public ReadOnly Property UpdatePriv() As Boolean
        Get
            Return _TablePriv.Contains("Update")
        End Get
    End Property
    Public ReadOnly Property DeletePriv() As Boolean
        Get
            Return _TablePriv.Contains("Delete")
        End Get
    End Property
    Public ReadOnly Property CreatePriv() As Boolean
        Get
            Return _TablePriv.Contains("Create")
        End Get
    End Property
    Public ReadOnly Property DropPriv() As Boolean
        Get
            Return _TablePriv.Contains("Drop")
        End Get
    End Property
    Public ReadOnly Property GrantPriv() As Boolean
        Get
            Return _TablePriv.Contains("Grant")
        End Get
    End Property
    Public ReadOnly Property ReferencesPriv() As Boolean
        Get
            Return _TablePriv.Contains("References")
        End Get
    End Property
    Public ReadOnly Property IndexPriv() As Boolean
        Get
            Return _TablePriv.Contains("Index")
        End Get
    End Property
    Public ReadOnly Property AlterPriv() As Boolean
        Get
            Return _TablePriv.Contains("Alter")
        End Get
    End Property

    Public ReadOnly Property Engine() As String
        Get
            Return _Engine
        End Get
    End Property
    Public ReadOnly Property TableComment() As String
        Get
            Return _TableComment
        End Get
    End Property
    Public ReadOnly Property CreateTime() As DateTime
        Get
            Return _CreateTime
        End Get
    End Property
    Public ReadOnly Property UpdateTime() As DateTime
        Get
            Return _UpdateTime
        End Get
    End Property

    Public ReadOnly Property DB() As String
        Get
            Return _DB
        End Get
    End Property
    Public ReadOnly Property TableName() As String
        Get
            Return _TableName
        End Get
    End Property

    Public ReadOnly Property Grantor() As String
        Get
            Return _Grantor
        End Get
    End Property

    Public ReadOnly Property Timestamp() As DateTime
        Get
            Return _Timestamp
        End Get
    End Property

    Public ReadOnly Property TablePriv() As String
        Get
            Return _TablePriv
        End Get
    End Property

    Public ReadOnly Property ColumnPriv() As String
        Get
            Return _ColumnPriv
        End Get
    End Property

End Class
